home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / s / itemtofront.rexx < prev    next >
OS/2 REXX Batch file  |  1992-03-14  |  266b  |  18 lines
  1. /*
  2.     Item To Front
  3.     Puts an item to the front of a list
  4. */
  5.  
  6. parse arg item, list
  7.  
  8.  
  9. if item =  '' then return(list)
  10.  
  11. stringpos = pos(item, list)
  12. if stringpos ~= 0 then
  13. do
  14.     list = delstr(list, stringpos, length(item) + 1)
  15.     list = item || '0a'x || list
  16. end
  17. return(list)
  18.